inherited dm_unidademedida: Tdm_unidademedida
  OldCreateOrder = True
  Left = 387
  Top = 235
  Height = 325
  Width = 418
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '    u.COD_UNIDADE,'
      '    u.DESCRICAO,'
      '    u.ABREVIACAO,'
      '    u.UNID_PADRAO,'
      '    case'
      '      when u.unid_padrao = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as UNID_PADRAO_DESC,'
      '    u.UNID_ESPECIAL,'
      '    case'
      '      when u.unid_especial = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as UNID_ESPECIAL_DESC,'
      '    u.FRACIONAR_ESTOQUE,'
      '    case'
      '      when u.FRACIONAR_ESTOQUE = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as FRACIONAR_ESTOQUE_DESC,'
      '    u.PERC_CALCULO,'
      '    case'
      '      when u.PERC_CALCULO = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as PERC_CALCULO_DESC,'
      '    u.OP_CONVERSAO,'
      '    u.ESTADO_FISICO,'
      '    u.VALOR_CORRESPONDENTE,'
      '    u.data_cad,'
      '    u.data_alteracao'
      'from unidade_medida u'
      'where cod_unidade > 0')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_UNIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_UNIDADE'
      Required = True
    end
    object cdsConsultaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaABREVIACAO: TStringField
      Alignment = taCenter
      FieldName = 'ABREVIACAO'
      Required = True
      Size = 5
    end
    object cdsConsultaUNID_PADRAO: TStringField
      FieldName = 'UNID_PADRAO'
      Size = 5
    end
    object cdsConsultaUNID_PADRAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'UNID_PADRAO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaUNID_ESPECIAL: TStringField
      Alignment = taCenter
      FieldName = 'UNID_ESPECIAL'
      Size = 5
    end
    object cdsConsultaUNID_ESPECIAL_DESC: TStringField
      Alignment = taCenter
      FieldName = 'UNID_ESPECIAL_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaFRACIONAR_ESTOQUE: TStringField
      Alignment = taCenter
      FieldName = 'FRACIONAR_ESTOQUE'
      Size = 5
    end
    object cdsConsultaFRACIONAR_ESTOQUE_DESC: TStringField
      Alignment = taCenter
      FieldName = 'FRACIONAR_ESTOQUE_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaPERC_CALCULO: TStringField
      Alignment = taCenter
      FieldName = 'PERC_CALCULO'
      Size = 5
    end
    object cdsConsultaPERC_CALCULO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'PERC_CALCULO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaOP_CONVERSAO: TStringField
      Alignment = taCenter
      FieldName = 'OP_CONVERSAO'
      Size = 15
    end
    object cdsConsultaESTADO_FISICO: TStringField
      Alignment = taCenter
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
    object cdsConsultaVALOR_CORRESPONDENTE: TIntegerField
      Alignment = taCenter
      FieldName = 'VALOR_CORRESPONDENTE'
      Required = True
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_unidade_medida,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    OnReconcileError = cdsRegistroReconcileError
    object cdsRegistroCOD_UNIDADE: TIntegerField
      FieldName = 'COD_UNIDADE'
      Required = True
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsRegistroABREVIACAO: TStringField
      Alignment = taCenter
      FieldName = 'ABREVIACAO'
      Required = True
      Size = 5
    end
    object cdsRegistroUNID_PADRAO: TStringField
      FieldName = 'UNID_PADRAO'
      Size = 5
    end
    object cdsRegistroUNID_ESPECIAL: TStringField
      FieldName = 'UNID_ESPECIAL'
      Size = 5
    end
    object cdsRegistroFRACIONAR_ESTOQUE: TStringField
      FieldName = 'FRACIONAR_ESTOQUE'
      Size = 5
    end
    object cdsRegistroPERC_CALCULO: TStringField
      FieldName = 'PERC_CALCULO'
      Size = 5
    end
    object cdsRegistroOP_CONVERSAO: TStringField
      FieldName = 'OP_CONVERSAO'
      Size = 15
    end
    object cdsRegistroESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
    object cdsRegistroVALOR_CORRESPONDENTE: TIntegerField
      Alignment = taCenter
      FieldName = 'VALOR_CORRESPONDENTE'
      Required = True
    end
    object cdsRegistroDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'unidade'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    u.COD_UNIDADE,'
      '    u.DESCRICAO,'
      '    u.ABREVIACAO,'
      '    u.UNID_PADRAO,'
      '    u.UNID_ESPECIAL,'
      '    u.FRACIONAR_ESTOQUE,'
      '    u.PERC_CALCULO,'
      '    u.OP_CONVERSAO,'
      '    u.ESTADO_FISICO,'
      '    u.VALOR_CORRESPONDENTE,'
      '    u.data_cad,'
      '    u.data_alteracao'
      'from UNIDADE_MEDIDA u'
      'where u.cod_unidade = :unidade')
  end
  object sqlUnidPadrao: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select u.cod_unidade, u.descricao, count(u.cod_unidade) as total'
      'from unidade_medida u'
      'where u.unid_padrao = '#39'True'#39
      'group by u.cod_unidade, u.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 249
    Top = 21
    object sqlUnidPadraoCOD_UNIDADE: TIntegerField
      FieldName = 'COD_UNIDADE'
      Required = True
    end
    object sqlUnidPadraoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlUnidPadraoTOTAL: TIntegerField
      FieldName = 'TOTAL'
      Required = True
    end
  end
end
